home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 August / Software of the Month Club 1996 August.iso / mac / Software Research Institute-SRI / Desktop Publishing / POVRAY / SCENES / LEVEL2 / STONEWAL.POV < prev    next >
Encoding:
Text File  |  1993-10-01  |  2.5 KB  |  139 lines  |  [TEXT/PvRy]
  1. // Persistence Of Vision raytracer version 2.0 sample file.
  2.  
  3. // By Dan Farmer
  4. //    Minneapolis, mn
  5. /*
  6.       a pastoral scene with a granite stone fence.  This was never really
  7.       "finished", but it works as it is.  Plenty of material to play around
  8.       with here.  The basic building blocks are here... just use your
  9.       imagination.
  10. */ 
  11. #include "shapes.inc"
  12. #include "colors.inc"
  13. #include "textures.inc"
  14.  
  15. camera {
  16.    location <50.0, 40.0, -350.0>
  17.    look_at <-100.0, 0.0, 0.0>
  18.    direction <0.0, 0.0, 2.0>
  19.    right <4/3, 0.0, 0.0 >
  20. }
  21.  
  22. /* Add light source */
  23. light_source { <100.0, 200.0, -630.0> color White }
  24.  
  25. light_source { <50.0, 20000.0, 50.0> color White }
  26.  
  27. /* Add the sky to the picture */
  28. sphere { <0.0, 0.0, 0.0>, 1000000.0
  29.    pigment { SkyBlue }
  30.    finish { diffuse 0 ambient 1 }
  31. }
  32.  
  33. /* Grassy meadow */
  34. plane { y, -2.0
  35.    pigment { color red 0.2 green 1.0 blue 0.4 }
  36.    finish {
  37.       crand 0.05  /* This value dithers the colors */
  38.       ambient 0.1
  39.       diffuse 0.3
  40.    }
  41.    normal {
  42.       waves 1.0
  43.       frequency 2000.0
  44.       scale 50000.0
  45.    }
  46. }
  47.  
  48. #declare Wall_Segment = object {
  49.    Cube
  50.    scale <8.0, 50.0, 100.0>
  51.  
  52.    pigment {
  53.       granite
  54.       quick_color White
  55.    }
  56.    finish {
  57.       crand 0.05
  58.       ambient 0.2
  59.       diffuse 0.8
  60.       brilliance 7.0
  61.       reflection 0.1
  62.       phong 1.0
  63.       phong_size 60
  64.    }
  65. }
  66.  
  67. #declare Granite_Ball =
  68. sphere { <0.0, 0.0, 10.0>, 10.0
  69.    pigment {
  70.       granite
  71.       quick_color White
  72.    }
  73.    finish {
  74.       crand 0.05
  75.       ambient 0.2
  76.       diffuse 0.8
  77.       brilliance 7.0
  78.       reflection 0.1
  79.       phong 1.0
  80.       phong_size 60
  81.    }
  82. }
  83.  
  84. #declare Column = object {
  85.    Cube
  86.    scale <12.0, 60.0, 12.0>
  87.  
  88.    pigment {
  89.       granite
  90.       quick_color White
  91.    }
  92.    finish {
  93.       crand 0.05
  94.       ambient 0.2
  95.       diffuse 0.8
  96.       brilliance 7.0
  97.       reflection 0.1
  98.       phong 1.0
  99.       phong_size 60
  100.    }
  101. }
  102.  
  103. /* note: Granite column is 12 wide x 12 deep x 60 high
  104.         Granite ball has a radius of 20 */
  105. #declare Pillar = union {
  106.    object { Column       translate  0*y }
  107.    object { Granite_Ball translate 70*y }
  108. }
  109.  
  110. /* Note: Wall segments are 100 units long, Pillars are 12 units "long" */
  111. object { Pillar
  112.    translate -106*z
  113. }
  114.  
  115. object { Wall_Segment
  116.    translate <-2.0, 0.0, -6.0 >
  117. }
  118.  
  119. object { Pillar
  120.    translate <0.0, 0.0, 0.0>
  121. }
  122.  
  123. object { Wall_Segment
  124.    translate <-2.0, 0.0, 112.0>
  125. }
  126.  
  127. object { Pillar
  128.    translate 112*z
  129. }
  130.  
  131. object { Wall_Segment
  132.    rotate -90*y
  133.    translate <76.0, 0.0, 114.0>
  134. }
  135.  
  136. object { Pillar
  137.    translate <176.0, 0.0, 112.0>
  138. }
  139.